home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / LABELS.PGM < prev    next >
Text File  |  1994-08-22  |  2KB  |  54 lines
  1. *Program to print mailing labels
  2. READ ADDRESS.REC
  3. *The following line is suitable for continuous mailing labels
  4. DEFINE LINES ### GLOBAL
  5. DEFINE BLANKS ### 0
  6. DEFINE CITYLINE ____________________________________________
  7. DEFINE COUNTRYLINE ____________________________________________
  8. DEFINE LINESLEFT ### 0
  9. DEFINE MARGIN __________ GLOBAL
  10. MARGIN = "          "
  11. CLS
  12. ECHO This program (LABELS.PGM) reads the file ADDRESS.REC
  13. ECHO and prints mailing labels with either 6, 9, or 24
  14. ECHO lines per label.  It may be altered to accomodate
  15. ECHO other mailing-label needs.
  16.  
  17. LINES = ?How many lines per label (6, 9 or 24) ?
  18.  
  19. ECHO
  20. ECHO Set printer to top line of print for label 1 and press ENTER.
  21. ? ?
  22. ROUTE PRINTER
  23. SET PAGE = 32000,80
  24. *Set page so that no breaks occur--continuous labels
  25. BLANKS = 0
  26. IF NAME <> . THEN TYPE "@MARGIN @NAME" ELSE BLANKS = BLANKS + 1
  27. IF ADDR <> . THEN TYPE "@MARGIN @ADDR" ELSE BLANKS = BLANKS + 1
  28. IF ADDR1 <> . THEN TYPE "@MARGIN @ADDR1" ELSE BLANKS = BLANKS + 1
  29. IF ADDR2 <> . THEN TYPE "@MARGIN @ADDR2" ELSE BLANKS = BLANKS + 1
  30. CITYLINE = TRIM (CITY) + ", " + TRIM(STATE) + "  " + ZIP
  31. IF CITY <> . THEN TYPE "@MARGIN @CITYLINE" ELSE BLANKS = BLANKS + 1
  32. COUNTRYLINE = TRIM(COUNTRY) + "  " + TRIM(FZIP)
  33. IF COUNTRY <> . THEN TYPE "@MARGIN @COUNTRYLINE" ELSE BLANKS = BLANKS + 1
  34. If LINES <= 9 then LINESLEFT = LINES + BLANKS - 6 else LINESLEFT = 3 + Blanks
  35. IF LINESLEFT = 9 THEN TYPE "\N \N \N \N \N \N \N \N"
  36. IF LINESLEFT = 8 THEN TYPE "\N \N \N \N \N \N \N"
  37. IF LINESLEFT = 7 THEN TYPE "\N \N \N \N \N \N"
  38. IF LINESLEFT = 6 THEN TYPE "\N \N \N \N \N"
  39. IF LINESLEFT = 5 THEN TYPE "\N \N \N \N"
  40. IF LINESLEFT = 4 THEN TYPE "\N \N \N"
  41. IF LINESLEFT = 3 THEN TYPE "\N \N"
  42. IF LINESLEFT = 2 THEN TYPE "\N"
  43. IF LINESLEFT = 1 THEN TYPE ""
  44. IF LINES = 24 THEN TYPE "\N \N \N \N \N \N \N \N \N \N \N \N \N"
  45. PROCESS
  46. ?Press <Enter> to continue ?
  47. *Set the following to 66 for a dot matrix printer:
  48. SET PAGE = 60,80
  49. NEWPAGE
  50. ROUTE SCREEN
  51.  
  52.  
  53.  
  54.